home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ahoy 1987 June
/
Ahoy_Magazine_87-06_1987_Double_L.d64
/
Parm Pass 2
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
692b
|
26 lines
0 rem << cd42-3 >>
1 rem ==================================
2 rem commodares problem #38-1 :
3 print"[147]parm pass 2"
4 rem solution by
5 rem paul sobolik
6 rem ==================================
7 rem --------method 2-----------
8 rem ----save line 10-30 as prog1------
10 input p1 : open 8,8,8,"parm.seq,s,w"
20 print#8,p1 : close 8
30 load"prog2",8
35 rem----save lines 40-60 as prog2-----
40 open 8,8,8,"parm.seq,s,r"
50 input#8,p2 : print"in prog2, p2=";p2
60 close 8
70 open 15,8,15,"s0:parm.seq":close 15
74 rem
75 rem ---method 5 (c64 only)---
76 rem ----save lines 80-90 as prog3---
80 input p3 : print"[147]"p3
90 load"prog4",8
95 rem ----save lines 100-110 as prog4--
100 print"";:open 3,3 : input#3,p4
110 close 3 : print"in prog4, p4=";p4